In diesem Beispiel wird die Command-Funktion verwendet, um die Befehlszeilenargumente in einer Funktion abzurufen. Sie werden in einem Wert vom Typ Variant, welcher ein Datenfeld enthΣlt, zurⁿckgegeben. Nicht verfⁿgbar in Microsoft Office.
Function BefZeileAbrufen(Optional MaxArgs)
' Variablen deklarieren.
Dim C, BefZl, BefZlLng, InArg, I, ZahlArgs
' Feststellen, ob MaxArgs angegeben wurde.
If IsMissing(MaxArgs) Then MaxArgs = 10
' Datenfeld passender Gr÷▀e erstellen.
ReDim ArgFeld(MaxArgs)
NumArgs = 0: InArg = False
' Befehlszeilenargumente abrufen.
BefZl = Command()
BefZlLng = Len(BefZl)
' Befehlszeile Zeichen fⁿr Zeichen
' durchgehen.
For I = 1 To BefZlLng
C = Mid(BefZl, I, 1)
' Auf Leerzeichen oder Tabulatoren prⁿfen.
If (C <> " " And C <> vbTab) Then
' Weder Leerzeichen noch Tabulatoren.
' ▄berprⁿfen ob bereits in Argument enthalten.
If Not InArg Then
' Anfang des neuen Arguments.
' ▄berprⁿfen, ob zu viele Argumente verwendet wurden.
If ZahlArgs = MaxArgs Then Exit For
ZahlArgs = ZahlArgs + 1
InArg = True
End If
' Zeichen an aktuelles Argument anfⁿgen.
ArgFeld(ZahlArgs) = ArgFeld(ZahlArgs) + C
Else
' Tabulator oder Leerzeichen gefunden.
' Das InArg-Attribut auf False festlegen.
InArg = False
End If
Next I
' Gr÷▀e des Datenfeldes neu bestimmen, so da▀ es
' gerade alle Argumente aufnehmen kann.
ReDim Preserve ArgFeld(ZahlArgs)
' Datenfeld in Funktionsnamen zurⁿckgeben.
BefZeileAbrufen = ArgFeld()
End Function